home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 88 / 64er_Magazin_Sonderheft_88_19xx_Markt__Technik_de_Side_B.d64 / sdz draft (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  587b  |  20 lines
  1. 10 open1,4
  2. 20 print#1,chr$(27);chr$(120);"0";:rem nlq aus
  3. 30 print#1,chr$(27);":";chr$(0);chr$(0);chr$(0);:rem rom-zeichensatz ins ram
  4. 40 print#1,chr$(27);"&";chr$(0);"!!";:rem neue zeichen von a bis a
  5. 50 for i =1 to 12
  6. 60 :  read x
  7. 70 :  print#1,chr$(x);
  8. 80 next i
  9. 90 print#1,chr$(27);"%1";:rem ram-zeichensatz einschalten
  10. 100 print#1,"statt eines ausrufe-zeichens"
  11. 110 print#1,"erhaelt man ein notensymbol:!!! !!!"
  12. 120 print#1,chr$(27);chr$(112);"1";:rem proportional ein
  13. 130 print#1,"!!! ! ! !"
  14. 140 print#1,"mmm m m m"
  15. 150 print#1,"iii i i i"
  16. 160 print#1,chr$(27);chr$(112);"1";:rem proportional aus
  17. 170 close 1
  18. 200 data 136:rem attribut: keine unterlaenge, start 0, ende 9
  19. 210 data 2,5,2,5,250,0,64,48,0,0,0
  20.